home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / programs / prog48 < prev    next >
Encoding:
Text File  |  1993-11-22  |  317 b   |  16 lines
  1. # testing additional resources
  2.  
  3. xtAppInitialize -class Program \
  4.     -options {    {-option1 option1 sepArg} 
  5.         {-option2 option2 sepArg}
  6.          }
  7.  
  8. . getAppResources { {option1 Option default1 x} {option2 Option default2 y}}
  9. puts stdout "option1: $x, option2: $y"
  10.  
  11. xmPushButton .fred managed
  12.  
  13. . realizeWidget
  14.  
  15. . mainLoop
  16.